#!/usr/bin/perl -w
use strict;



my $a = "sha256:c586b5ad3d6c93e51a1b45bd0969719782a560e2888d9a9679d7ca98f92002bd";

my ($b,$c) = split(/:/,$a);

print $c."\n";
